home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
MacWorld 1997 September
/
Macworld (1997-09).dmg
/
Serious Software
/
Cherwell Scientific Demos
/
DIMPLE
/
Install Files
/
IOL
/
Prewitt.IOL
< prev
next >
Wrap
Text File
|
1997-02-25
|
344b
|
15 lines
!DIMPLE IOL PROGRAM
images
x "Image to filter" input ;
d1 temp ;
d2 temp ;
yout "Edge detect" output ;
operations
d1 = filter x ( -1, 0, 1,
-1, 0, 1,
-1, 0, 1 ) ;
d2 = filter x ( -1, -1, -1,
0, 0, 0,
1, 1, 1 ) ;
yout = sqrt( d1*d1 + d2*d2 );